home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Gadget.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  16.1 KB  |  465 lines
  1. pTempVar <- <primitive 110 3 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r51 16r50 16r21 16rFA 16r03 16rB7 16rF2 16r21 16r61 16r20 16rF3 \
  4.         16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " gadgetNameIs " \
  8.   #( #[ 16r11 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " gadgetTypeIs " \
  12.   #( #[ 16r52 16r50 16r56 16r11 16rFA 16r04 16rB7 16r60 16r10 16r5D 16rB5 \
  13.         16rF7 16r16 16r52 16r51 16r56 16r11 16rFA 16r04 16rB7 16r60 \
  14.         16r10 16r5D 16rB5 16rF7 16r09 16r52 16r52 16r56 16r11 16rFA \
  15.         16r04 16rB7 16rF1 16r60 16rF2 16r10 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 98 #Gadget \
  19.   <primitive 97 #Gadget #Glyph #AmigaTalk:Intuition/Gadget.st \
  20.    #(  #gadgetType #gadgetName ) \
  21.    #( #new: #gadgetNameIs #gadgetTypeIs  ) \
  22.   pTempVar 2 7 >>
  23.  
  24. pTempVar <- <primitive 110 23 >
  25. <primitive 112 pTempVar 1  " setSelectName: " \
  26.   #( #[ 16r53 16r50 16r30 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r6B \
  27.         16rF5] \
  28.     #( 11  )) >
  29.  
  30. <primitive 112 pTempVar 2  " getSelectName " \
  31.   #( #[ 16r52 16r50 16r30 16r1C 16rFA 16r04 16rB7 16rF1 16r6B 16rF3 16rF5 \
  32.        ] \
  33.     #( 11  )) >
  34.  
  35. <primitive 112 pTempVar 3  " setRenderName: " \
  36.   #( #[ 16r53 16r50 16r30 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r6A \
  37.         16rF5] \
  38.     #( 10  )) >
  39.  
  40. <primitive 112 pTempVar 4  " getRenderName " \
  41.   #( #[ 16r52 16r50 16r30 16r1C 16rFA 16r04 16rB7 16rF1 16r6A 16rF3 16rF5 \
  42.        ] \
  43.     #( 10  )) >
  44.  
  45. <primitive 112 pTempVar 5  " setITextName: " \
  46.   #( #[ 16r53 16r50 16r59 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r68 \
  47.         16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 6  " getITextName " \
  51.   #( #[ 16r52 16r50 16r59 16r1C 16rFA 16r04 16rB7 16rF1 16r68 16rF3 16rF5 \
  52.        ] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 7  " setNextGadgetName: " \
  56.   #( #[ 16r53 16r50 16r58 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r69 \
  57.         16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 8  " getNextGadgetName " \
  61.   #( #[ 16r52 16r50 16r58 16r1C 16rFA 16r04 16rB7 16rF1 16r69 16rF3 16rF5 \
  62.        ] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 9  " setGadgetID: " \
  66.   #( #[ 16r53 16r50 16r57 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r67 \
  67.         16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 10  " getGadgetID " \
  71.   #( #[ 16r52 16r50 16r57 16r1C 16rFA 16r04 16rB7 16rF1 16r67 16rF3 16rF5 \
  72.        ] \
  73.     #(  )) >
  74.  
  75. <primitive 112 pTempVar 11  " setGadgetType: " \
  76.   #( #[ 16r53 16r50 16r56 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r66 \
  77.         16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 12  " getGadgetType " \
  81.   #( #[ 16r52 16r50 16r56 16r1C 16rFA 16r04 16rB7 16rF1 16r66 16rF3 16rF5 \
  82.        ] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 13  " setActivation: " \
  86.   #( #[ 16r53 16r50 16r55 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r65 \
  87.         16rF5] \
  88.     #(  )) >
  89.  
  90. <primitive 112 pTempVar 14  " getActivation " \
  91.   #( #[ 16r52 16r50 16r55 16r1C 16rFA 16r04 16rB7 16rF1 16r65 16rF3 16rF5 \
  92.        ] \
  93.     #(  )) >
  94.  
  95. <primitive 112 pTempVar 15  " setFlags: " \
  96.   #( #[ 16r53 16r50 16r54 16r21 16r1C 16rFA 16r05 16rB7 16rF2 16r21 16r64 \
  97.         16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 16  " getFlags " \
  101.   #( #[ 16r52 16r50 16r54 16r1C 16rFA 16r04 16rB7 16rF1 16r64 16rF3 16rF5 \
  102.        ] \
  103.     #(  )) >
  104.  
  105. <primitive 112 pTempVar 17  " getGadgetSize " \
  106.   #( #[ 16r52 16r50 16r52 16r1C 16rFA 16r04 16rB7 16r62 16r52 16r50 16r53 \
  107.         16r1C 16rFA 16r04 16rB7 16r63 16r12 16r13 16r81 16r00 16rF3 \
  108.         16rF5] \
  109.     #( #@  )) >
  110.  
  111. <primitive 112 pTempVar 18  " getStartPoint " \
  112.   #( #[ 16r52 16r50 16r50 16r1C 16rFA 16r04 16rB7 16r60 16r52 16r50 16r51 \
  113.         16r1C 16rFA 16r04 16rB7 16r61 16r10 16r11 16r81 16r00 16rF3 \
  114.         16rF5] \
  115.     #( #@  )) >
  116.  
  117. <primitive 112 pTempVar 19  " setGadgetSizeTo: " \
  118.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r52 \
  119.         16r22 16r1C 16rFA 16r05 16rB7 16rF2 16r53 16r50 16r53 16r23 \
  120.         16r1C 16rFA 16r05 16rB7 16rF2 16r22 16r62 16r23 16r63 16rF5 \
  121.        ] \
  122.     #(  )) >
  123.  
  124. <primitive 112 pTempVar 20  " setStartPoint: " \
  125.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r50 \
  126.         16r22 16r1C 16rFA 16r05 16rB7 16rF2 16r53 16r50 16r51 16r23 \
  127.         16r1C 16rFA 16r05 16rB7 16rF2 16r22 16r60 16r23 16r61 16rF5 \
  128.        ] \
  129.     #(  )) >
  130.  
  131. <primitive 112 pTempVar 21  " registerTo: " \
  132.   #( #[ 16r57 16r50 16r21 16r1C 16rFA 16r04 16rB7 16rF2 16rF5] \
  133.     #(  )) >
  134.  
  135. <primitive 112 pTempVar 22  " remove " \
  136.   #( #[ 16r50 16r50 16r1C 16rFA 16r03 16rB7 16rF2 16rF5] \
  137.     #(  )) >
  138.  
  139. <primitive 112 pTempVar 23  " new: " \
  140.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16r6C 16r20 16rF3 \
  141.         16rF5] \
  142.     #( #new: #gadgetNameIs  )) >
  143.  
  144. <primitive 98 #BoolGadget \
  145.   <primitive 97 #BoolGadget #Gadget #AmigaTalk:Intuition/Gadget.st \
  146.    #(  #leftEdge #topEdge #width #height #flags #activation \
  147.         #gadgetID #iTextName #nextGadgetName #renderName #selectName #gadgetName ) \
  148.    #( #setSelectName: #getSelectName #setRenderName: #getRenderName #setITextName:  \
  149.        #getITextName #setNextGadgetName: #getNextGadgetName #setGadgetID: #getGadgetID  \
  150.        #setGadgetType: #getGadgetType #setActivation: #getActivation #setFlags: #getFlags  \
  151.        #getGadgetSize #getStartPoint #setGadgetSizeTo: #setStartPoint: #registerTo: #remove #new:  ) \
  152.   pTempVar 4 6 >>
  153.  
  154. pTempVar <- <primitive 110 25 >
  155. <primitive 112 pTempVar 1  " new: " \
  156.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16r6D 16r20 16r51 \
  157.         16r81 16r02 16rF2 16r20 16rF3 16rF5] \
  158.     #( #new: #gadgetNameIs #setGadgetType:  )) >
  159.  
  160. <primitive 112 pTempVar 2  " setSelectName: " \
  161.   #( #[ 16r53 16r51 16r30 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r6B \
  162.         16rF5] \
  163.     #( 11  )) >
  164.  
  165. <primitive 112 pTempVar 3  " getSelectName " \
  166.   #( #[ 16r52 16r51 16r30 16r1D 16rFA 16r04 16rB7 16rF1 16r6B 16rF3 16rF5 \
  167.        ] \
  168.     #( 11  )) >
  169.  
  170. <primitive 112 pTempVar 4  " setRenderName: " \
  171.   #( #[ 16r53 16r51 16r30 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r6A \
  172.         16rF5] \
  173.     #( 10  )) >
  174.  
  175. <primitive 112 pTempVar 5  " getRenderName " \
  176.   #( #[ 16r52 16r51 16r30 16r1D 16rFA 16r04 16rB7 16rF1 16r6A 16rF3 16rF5 \
  177.        ] \
  178.     #( 10  )) >
  179.  
  180. <primitive 112 pTempVar 6  " setITextName: " \
  181.   #( #[ 16r53 16r51 16r59 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r68 \
  182.         16rF5] \
  183.     #(  )) >
  184.  
  185. <primitive 112 pTempVar 7  " getITextName " \
  186.   #( #[ 16r52 16r51 16r59 16r1D 16rFA 16r04 16rB7 16rF1 16r68 16rF3 16rF5 \
  187.        ] \
  188.     #(  )) >
  189.  
  190. <primitive 112 pTempVar 8  " setNextGadgetName: " \
  191.   #( #[ 16r53 16r51 16r58 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r69 \
  192.         16rF5] \
  193.     #(  )) >
  194.  
  195. <primitive 112 pTempVar 9  " getNextGadgetName " \
  196.   #( #[ 16r52 16r51 16r58 16r1D 16rFA 16r04 16rB7 16rF1 16r69 16rF3 16rF5 \
  197.        ] \
  198.     #(  )) >
  199.  
  200. <primitive 112 pTempVar 10  " setGadgetID: " \
  201.   #( #[ 16r53 16r51 16r57 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r67 \
  202.         16rF5] \
  203.     #(  )) >
  204.  
  205. <primitive 112 pTempVar 11  " getGadgetID " \
  206.   #( #[ 16r52 16r51 16r57 16r1D 16rFA 16r04 16rB7 16rF1 16r67 16rF3 16rF5 \
  207.        ] \
  208.     #(  )) >
  209.  
  210. <primitive 112 pTempVar 12  " setGadgetType: " \
  211.   #( #[ 16r53 16r51 16r56 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r66 \
  212.         16rF5] \
  213.     #(  )) >
  214.  
  215. <primitive 112 pTempVar 13  " getGadgetType " \
  216.   #( #[ 16r52 16r51 16r56 16r1D 16rFA 16r04 16rB7 16rF1 16r66 16rF3 16rF5 \
  217.        ] \
  218.     #(  )) >
  219.  
  220. <primitive 112 pTempVar 14  " setActivation: " \
  221.   #( #[ 16r53 16r51 16r55 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r65 \
  222.         16rF5] \
  223.     #(  )) >
  224.  
  225. <primitive 112 pTempVar 15  " getActivation " \
  226.   #( #[ 16r52 16r51 16r55 16r1D 16rFA 16r04 16rB7 16rF1 16r65 16rF3 16rF5 \
  227.        ] \
  228.     #(  )) >
  229.  
  230. <primitive 112 pTempVar 16  " setFlags: " \
  231.   #( #[ 16r53 16r51 16r54 16r21 16r1D 16rFA 16r05 16rB7 16rF2 16r21 16r64 \
  232.         16rF5] \
  233.     #(  )) >
  234.  
  235. <primitive 112 pTempVar 17  " getFlags " \
  236.   #( #[ 16r52 16r51 16r54 16r1D 16rFA 16r04 16rB7 16rF1 16r64 16rF3 16rF5 \
  237.        ] \
  238.     #(  )) >
  239.  
  240. <primitive 112 pTempVar 18  " getGadgetSize " \
  241.   #( #[ 16r52 16r51 16r52 16r1D 16rFA 16r04 16rB7 16r62 16r52 16r51 16r53 \
  242.         16r1D 16rFA 16r04 16rB7 16r63 16r12 16r13 16r81 16r00 16rF3 \
  243.         16rF5] \
  244.     #( #@  )) >
  245.  
  246. <primitive 112 pTempVar 19  " getStartPoint " \
  247.   #( #[ 16r52 16r51 16r50 16r1D 16rFA 16r04 16rB7 16r60 16r52 16r51 16r51 \
  248.         16r1D 16rFA 16r04 16rB7 16r61 16r10 16r11 16r81 16r00 16rF3 \
  249.         16rF5] \
  250.     #( #@  )) >
  251.  
  252. <primitive 112 pTempVar 20  " setGadgetSize: " \
  253.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r51 16r52 \
  254.         16r22 16r1D 16rFA 16r05 16rB7 16rF2 16r53 16r51 16r53 16r23 \
  255.         16r1D 16rFA 16r05 16rB7 16rF2 16r22 16r62 16r23 16r63 16rF5 \
  256.        ] \
  257.     #(  )) >
  258.  
  259. <primitive 112 pTempVar 21  " setStartPoint: " \
  260.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r51 16r50 \
  261.         16r22 16r1D 16rFA 16r05 16rB7 16rF2 16r53 16r51 16r51 16r23 \
  262.         16r1D 16rFA 16r05 16rB7 16rF2 16r22 16r60 16r23 16r61 16rF5 \
  263.        ] \
  264.     #(  )) >
  265.  
  266. <primitive 112 pTempVar 22  " registerTo: " \
  267.   #( #[ 16r57 16r51 16r21 16r1D 16rFA 16r04 16rB7 16rF2 16rF5] \
  268.     #(  )) >
  269.  
  270. <primitive 112 pTempVar 23  " remove " \
  271.   #( #[ 16r50 16r51 16r1D 16rFA 16r03 16rB7 16rF2 16rF5] \
  272.     #(  )) >
  273.  
  274. <primitive 112 pTempVar 24  " getBufferSize " \
  275.   #( #[ 16r52 16r51 16r30 16r1D 16rFA 16r04 16rB7 16rF1 16r6C 16rF3 16rF5 \
  276.        ] \
  277.     #( 12  )) >
  278.  
  279. <primitive 112 pTempVar 25  " changeBufferSize: " \
  280.   #( #[ 16r55 16r21 16r1D 16rFA 16r03 16rB7 16rF2 16r21 16r6C 16rF5] \
  281.     #(  )) >
  282.  
  283. <primitive 98 #StrGadget \
  284.   <primitive 97 #StrGadget #Gadget #AmigaTalk:Intuition/Gadget.st \
  285.    #(  \
  286.         #topEdge #width #height #flags #activation #gadgetType #gadgetID #iTextName \
  287.         #renderName #selectName #bufferSize #gadgetName ) \
  288.    #( #new: #setSelectName: #getSelectName #setRenderName: #getRenderName  \
  289.        #setITextName: #getITextName #setNextGadgetName: #getNextGadgetName #setGadgetID:  \
  290.        #getGadgetID #setGadgetType: #getGadgetType #setActivation: #getActivation #setFlags:  \
  291.        #getFlags #getGadgetSize #getStartPoint #setGadgetSize: #setStartPoint: #registerTo:  \
  292.        #remove #getBufferSize #changeBufferSize:  ) \
  293.   pTempVar 4 6 >>
  294.  
  295. pTempVar <- <primitive 110 30 >
  296. <primitive 112 pTempVar 1  " new: " \
  297.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16r06 16r11 16r20 \
  298.         16r52 16r81 16r02 16rF2 16r20 16rF3 16rF5] \
  299.     #( #new: #gadgetNameIs #setGadgetType:  )) >
  300.  
  301. <primitive 112 pTempVar 2  " getVBody " \
  302.   #( #[ 16r52 16r52 16r05 16r11 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r06 \
  303.         16r10 16rF3 16rF5] \
  304.     #(  )) >
  305.  
  306. <primitive 112 pTempVar 3  " getHBody " \
  307.   #( #[ 16r52 16r52 16r05 16r10 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6F \
  308.         16rF3 16rF5] \
  309.     #(  )) >
  310.  
  311. <primitive 112 pTempVar 4  " getVPot " \
  312.   #( #[ 16r52 16r52 16r30 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6E 16rF3 \
  313.         16rF5] \
  314.     #( 15  )) >
  315.  
  316. <primitive 112 pTempVar 5  " getHPot " \
  317.   #( #[ 16r52 16r52 16r30 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6D 16rF3 \
  318.         16rF5] \
  319.     #( 14  )) >
  320.  
  321. <primitive 112 pTempVar 6  " getPropFlags " \
  322.   #( #[ 16r52 16r52 16r30 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6C 16rF3 \
  323.         16rF5] \
  324.     #( 13  )) >
  325.  
  326. <primitive 112 pTempVar 7  " setSelectName: " \
  327.   #( #[ 16r53 16r52 16r30 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  328.         16r6B 16rF5] \
  329.     #( 11  )) >
  330.  
  331. <primitive 112 pTempVar 8  " getSelectName " \
  332.   #( #[ 16r52 16r52 16r30 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6B 16rF3 \
  333.         16rF5] \
  334.     #( 11  )) >
  335.  
  336. <primitive 112 pTempVar 9  " setRenderName: " \
  337.   #( #[ 16r53 16r52 16r30 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  338.         16r6A 16rF5] \
  339.     #( 10  )) >
  340.  
  341. <primitive 112 pTempVar 10  " getRenderName " \
  342.   #( #[ 16r52 16r52 16r30 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r6A 16rF3 \
  343.         16rF5] \
  344.     #( 10  )) >
  345.  
  346. <primitive 112 pTempVar 11  " setITextName: " \
  347.   #( #[ 16r53 16r52 16r59 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  348.         16r68 16rF5] \
  349.     #(  )) >
  350.  
  351. <primitive 112 pTempVar 12  " getITextName " \
  352.   #( #[ 16r52 16r52 16r59 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r68 16rF3 \
  353.         16rF5] \
  354.     #(  )) >
  355.  
  356. <primitive 112 pTempVar 13  " setNextGadgetName: " \
  357.   #( #[ 16r53 16r52 16r58 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  358.         16r69 16rF5] \
  359.     #(  )) >
  360.  
  361. <primitive 112 pTempVar 14  " getNextGadgetName " \
  362.   #( #[ 16r52 16r52 16r58 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r69 16rF3 \
  363.         16rF5] \
  364.     #(  )) >
  365.  
  366. <primitive 112 pTempVar 15  " setGadgetID: " \
  367.   #( #[ 16r53 16r52 16r57 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  368.         16r67 16rF5] \
  369.     #(  )) >
  370.  
  371. <primitive 112 pTempVar 16  " getGadgetID " \
  372.   #( #[ 16r52 16r52 16r57 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r67 16rF3 \
  373.         16rF5] \
  374.     #(  )) >
  375.  
  376. <primitive 112 pTempVar 17  " setGadgetType: " \
  377.   #( #[ 16r53 16r52 16r56 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  378.         16r66 16rF5] \
  379.     #(  )) >
  380.  
  381. <primitive 112 pTempVar 18  " getGadgetType " \
  382.   #( #[ 16r52 16r52 16r56 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r66 16rF3 \
  383.         16rF5] \
  384.     #(  )) >
  385.  
  386. <primitive 112 pTempVar 19  " setActivation: " \
  387.   #( #[ 16r53 16r52 16r55 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  388.         16r65 16rF5] \
  389.     #(  )) >
  390.  
  391. <primitive 112 pTempVar 20  " getActivation " \
  392.   #( #[ 16r52 16r52 16r55 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r65 16rF3 \
  393.         16rF5] \
  394.     #(  )) >
  395.  
  396. <primitive 112 pTempVar 21  " setFlags: " \
  397.   #( #[ 16r53 16r52 16r54 16r21 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r21 \
  398.         16r64 16rF5] \
  399.     #(  )) >
  400.  
  401. <primitive 112 pTempVar 22  " getFlags " \
  402.   #( #[ 16r52 16r52 16r54 16r01 16r11 16rFA 16r04 16rB7 16rF1 16r64 16rF3 \
  403.         16rF5] \
  404.     #(  )) >
  405.  
  406. <primitive 112 pTempVar 23  " getGadgetSize " \
  407.   #( #[ 16r52 16r52 16r52 16r01 16r11 16rFA 16r04 16rB7 16r62 16r52 16r52 \
  408.         16r53 16r01 16r11 16rFA 16r04 16rB7 16r63 16r12 16r13 16r81 \
  409.         16r00 16rF3 16rF5] \
  410.     #( #@  )) >
  411.  
  412. <primitive 112 pTempVar 24  " getStartPoint " \
  413.   #( #[ 16r52 16r52 16r50 16r01 16r11 16rFA 16r04 16rB7 16r60 16r52 16r52 \
  414.         16r51 16r01 16r11 16rFA 16r04 16rB7 16r61 16r10 16r11 16r81 \
  415.         16r00 16rF3 16rF5] \
  416.     #( #@  )) >
  417.  
  418. <primitive 112 pTempVar 25  " setGadgetSize: " \
  419.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r52 \
  420.         16r22 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r53 16r52 16r53 \
  421.         16r23 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r22 16r62 16r23 \
  422.         16r63 16rF5] \
  423.     #(  )) >
  424.  
  425. <primitive 112 pTempVar 26  " setStartPoint: " \
  426.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r50 \
  427.         16r22 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r53 16r52 16r51 \
  428.         16r23 16r01 16r11 16rFA 16r05 16rB7 16rF2 16r22 16r60 16r23 \
  429.         16r61 16rF5] \
  430.     #(  )) >
  431.  
  432. <primitive 112 pTempVar 27  " registerTo: " \
  433.   #( #[ 16r57 16r52 16r21 16r01 16r11 16rFA 16r04 16rB7 16rF2 16rF5] \
  434.     #(  )) >
  435.  
  436. <primitive 112 pTempVar 28  " remove " \
  437.   #( #[ 16r50 16r52 16r01 16r11 16rFA 16r03 16rB7 16rF2 16rF5] \
  438.     #(  )) >
  439.  
  440. <primitive 112 pTempVar 29  " setProps:hPot:vPot:hBody:vBody: " \
  441.   #( #[ 16r56 16r21 16r22 16r23 16r24 16r25 16r01 16r11 16rFA 16r07 16rB7 \
  442.         16rF2 16r21 16r64 16r22 16r6D 16r23 16r6E 16r24 16r6F 16r25 \
  443.         16r06 16r10 16rF5] \
  444.     #(  )) >
  445.  
  446. <primitive 112 pTempVar 30  " modifyProps:hPot:vPot:hBody:vBody:windowName: " \
  447.   #( #[ 16r54 16r21 16r22 16r23 16r24 16r25 16r26 16r01 16r11 16rFA 16r08 \
  448.         16rB7 16rF2 16r21 16r64 16r22 16r6D 16r23 16r6E 16r24 16r6F \
  449.         16r25 16r06 16r10 16rF5] \
  450.     #(  )) >
  451.  
  452. <primitive 98 #PropGadget \
  453.   <primitive 97 #PropGadget #Gadget #AmigaTalk:Intuition/Gadget.st \
  454.    #(  #leftEdge #topEdge #width \
  455.         #flags #activation #gadgetType #gadgetID #iTextName #nextGadgetName \
  456.         #selectName #propFlags #hPot #vPot #hBody #vBody #gadgetName ) \
  457.    #( #new: #getVBody #getHBody #getVPot #getHPot #getPropFlags #setSelectName:  \
  458.        #getSelectName #setRenderName: #getRenderName #setITextName: #getITextName  \
  459.        #setNextGadgetName: #getNextGadgetName #setGadgetID: #getGadgetID #setGadgetType: #getGadgetType  \
  460.        #setActivation: #getActivation #setFlags: #getFlags #getGadgetSize #getStartPoint  \
  461.        #setGadgetSize: #setStartPoint: #registerTo: #remove #setProps:hPot:vPot:hBody:vBody:  \
  462.        #modifyProps:hPot:vPot:hBody:vBody:windowName:  ) \
  463.   pTempVar 7 9 >>
  464.  
  465.